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STRSSCHECK_STATUS -Check status and convert to 18-Sep-1984 O12): h¢ AX-11 Bliss-32 eta at Page 
14-Sep-1984 12:40:01 LIBRTL.SRCISTRCHESTA.B352;1 


1 ZTITLE ‘STRSSCHECK_STATUS -Check status and convert to STR$ status’ 
0 § MODULE STRSSCHECK_STATUS ( ! Check status and convert to STR$ status 


0 
Oee IDENT = "1-003" ! File: STRCHESTA.B32 Edit: RKR1003 
0006 ? d= 
id : BEGIN 
0009 : leueenaeenaennsennneenennenteeerectoreretrertentretrennentenenentnnenenseetes 
‘ft & 
0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
pole 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
pia : it ALL RIGHTS RESERVED. e 
. +d 
0015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Bote 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0017 1 !* INCLUSI THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY e 
0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
pogo : ‘- TRANSFERRED. * 
. ® 
B05¢ 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0025 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0095 : ‘* CORPORATION. * 
Hid we 
0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
ot 44 ! ¥ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. ® 
0029 1 !* * 
oo ! ‘acti aaah a aaa anit eta ad 
it 1 
0035 1 !++ 
0034 1 ! FACILITY: String support Library 
0035 1! 
0036 1 ! ABSTRACT: 
0037 1! 
0038 1! This module contains a single routine which inspects the 
0039 1! incoming status ( pete | a LIBS or SS$ status) and converts 
0040 1! it into the appropriate STR$ status. If it is one of the 
0041 1! fatal LIBS statuses, the corresponding STR$ status gets 
0042 1! signalled. 
Bez : Unrecognized statuses are left alone. 
Ope } ; ENVIRONMENT: Runs at any access mode - AST reentrant 
0047 { AUTHOR: R. Reichert, CREATION DATE: 3-MAY-1981 
00469 1 | MODIFIED BY: 
0050 1! 
boas 1 ! 1-001 = Original. RKR 3-MAY~1981 
036 1 ! 1-002 - Revise what error statuses get signaled. RKR 3-SEP-1981. 
053 1 ! 1-003 = Add explicit external declaration for LIBSSTOP. 
054 1! RKR 4-NOV-1981. 
055 1! 
B26 1 !-- 
0057 1 
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CHECK_STAT STRSSCHECK_STATUS -Check status and convert to 1o~300- 138% O12): he 
Declarations 14-Sep-1984 12:40: 
SSBTTL ‘Declarations’ 
SWITCHES: 
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SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, 
NONEXTERNAL = WORD_RELATIVE); 


' 
LINKAGES: 
REQUIRE *"RTLIN: STRLNK'; ! The Linkage declarations 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
STRSSCHECK_STATUS_R2 : STRSSCHECK_STATUS_LINKAGE; 


INCLUDE FILES: 


LIBRARY ‘RTLSTARLE'; ! systen syavete. typically from 
' SYSSLIBRARY:STARLET.L32 
REQUIRE "RTLIN:RTLPSECT'; ! Define PSECT declarations macros 
MACROS: 
NONE 
EQUATED SYMBOLS: 
! NONE 
FIELDS: 
NONE 
PSECTS: 
DECLARE_PSECTS (STR); ! Declare psects for STR$ facility 
OWN STORAGE: 
: NONE 
i 
i 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
LIBSSTOP; ! to signal errors 

EXTERNAL LITERAL ! Condition volus symbols 
LIBS_INSVIRMEM, ' Insufficient virtual memory 
LIBS_INVSTRDES, ! Invalid string descriptor 
LIBS_INVARG, ! Invalid argument 
LIBS$_STRTRU ' String truncated 
LIB$~WRONUMARG, i Wrong number of arguments 


ALS CHECK_STAT bey palo dos K_STATUS -Check status and convert to 1b-5e 3007 138% 9}: i}: Af Ax-11 B ieee Fhcves 


Page 
eclarations -Sep-1 MTBRTLS ( 


Ta B82; :1 


H 136 93 1 STRS_NORMAL, ! Succ 

; 94 «1 STRS_INSVIRMEM, i Insufficient virtual memory 
3 138 95 1 STRS_ILLSTRCLA, i Illegal string class 

s 73 96 «1 STRS$_TRU, i Truncation 

; \s9 8 44 : STRS_WRONUMARG; i Wrong number of arguments 


STRRECHECK STAT ; 
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16 
GESTARS aiertatttvband covert © HECHecigRt GDR Wath Oleh 
ESUML aSUTRE"EHARIAZUE AF aTsMHS* CN Eeck statu 
IN_STATUS 
) : STRSSCHECK_STATUS_LINKAGE = 
lee 


i FUNCTIONAL DESCRIPTION: 
This routine inspects the incoming status. If it is one of 
& fgcagnisce set of fatal LIBS statuses, the corresponding 
STRS status is signalled. Some LIB$ statuses are converted 
to the corresponding STR$ status. If the status is unkown, 
it is simply returned. 

CALLING SEQUENCE: 
STRSSCHECK_STATUS_R2 ( IN_STATUS.ric.v ) 

FORMAL PARAMETERS: 
IN_STATUS.rlc.v The input status 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 


OUT_STATUS.wlc.v The output status 


SIDE EFFECTS: 
If it finds IN STATUS to be LIBS_INSVIRMEM, LIBS_INVSTRDES, 


LIBS_WRONUMARG or LIBS_INVARG it signals the corresponding STR$ 
' condition code. 


BEGIN 
Loc 


AL 
OUT_STATUS ; ! the status returned 
OUT _STarus = (SELECTONE .IN_STATUS OF 


CSS$_NORMAL , 
STRS$_NORMAL): -IN_STATUS ; ! most common first 


CLIB$_STRTRUI: STR$_TRU ; ! next most common 


PS 
TRCHESTA.B852;1 


tad 
ad 


STRSSC 
1 


S 


SUeurunee ” 


Sete ee Se ee te te tee 
— ss — 1 Ys 4 


; Routine Size: 


189 
190 


HECK_STAT UL + 9%. 3 
STRSS 


104 bytes, 


ose? 1 END 
466 1 
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TATUS =Check status and convert to 16- gen 138% 94:3) 
TATUS_R2 = Check Status 14-Sep-1984 12:40 
LIBS_INSVIRMEM]: LIBSSTOP (STRS_INSVIRMEM) 

L18$- mY ie LIBSSTOP (STRS_ILLSTRCLA) 

LIBS_ LIBSSTOP (STR$_ILLSTRCLA) 

mitts ~URONUMARG) : LIBSSTOP (STR$_WRONUMARG) 

, OTHERWISE: IN STATUS ; ! 

RETURN our STATUS; 
1 End of routine STRSSCHECK _STATUS_R2 

TITLE 

IDENT 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

-PSECT 


1 
70 


: AX-11 Bliss-32 V Pa 5 
¢ Harte saeistacmesea6$2:1 we 
; tleast 
3; | common 
! unlikely 


STRSSCHECK_STATUS STRSSCHECK_STATUS -Check stat 
\1-003\ us and convert to 


LIBSSTOP, LIBS$_INSVIRMEM 
B$_INVSTRDES, 18s, INVARG 

B$"STR TRu, LiB$_wRONUMARG 

R$" NORMA ait TNSVIRRER 

RS- ILLSTRELA, STRS 

R$ ~WRONUMARG 


-STRSCODE,NOWRT, SHR, PIC,2 


nouurre 
AH 


52 50 dO 00000 ee ae R2:: oses 
01 52 01 00003 CMPL IN_STATUS, ; 0451 
5€ 13 00006 BEQL $s : 
000000006 8&F 26 D1 00008 CMPL IN_STATUS, #STR$_NORMAL $ 
53 13 QOO0F BEQL $ : 
000000006 8F 52 D1 00011 CMPL IN_STATUS, #LIBS$_STRTRU 7 0454 
08 12 Bpote BNEQ 1$ : 
50 000000006 8&F BY paoae aon #STRS_TRU, OUT_STATUS : 
000000006 &F 52 D1 00032 1$: CMPL IN_STATUS, #LIBS_INSVIRMEM ; 0456 
08 12 00029 BNEQ 3 
00000000G 8F DD 00028 PUSHL #STRS_INSVIRMEM : 
3 11 00031 BRB : 
000000006 8F 3 o 44 ; 2s: a N_STATUS, #LIBS_INVSTRDES ; 0457 
000000006 &F 3g D1 $0 ¢ CMPL IN_STATUS, #LIBS_INVARG ; 0458 
08 12 0004 BNEQ : 
00000000G 8F DD 00045 3$: PUSHL #STRS_ILLSTRCLA : 
OF 11 ks BRB : 
00000009G 8F be 0 Boee 4$: a IN_STATUS, #LIBS_WRONUMARG ; 0459 
00000000G 8F ODD 30086 PUSHL Mar WRONUMARG : 
000000006 00 01 Fe Banas 5$: CALLS , LIBSSTOP 3 
05 0006 RSB : 
50 52 DO 00064 6$: MOVL IN_STATUS, OUT_STATUS ; 0461 
05 00067 RSB ; 0464 
Routine Base: _STRSCODE + 0000 


! End of module STRSSCHECK_STATUS 


$ 
1 


COMMAND QUALIFIERS 
PLESS/ENECR OS? FELD, INST IAL GPT IRIZED /MOTRACEAL 1Se8.§ 


Size: 04 code + 0 data bytes 
Run Time :03.4 

Elapsed. Tine: 00:16.5 

Lines/CPU Min: $25 
Lexemes/CPU-Min: 25500 


peaeey Used: 50 pages 
Compilation Complete 
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TRSSCHECK_STAT STRSSCHECK_STATUS -Check status and convert to 1b-Se -1984 01:31:1 AX-11 Bliss-32 v4.0-7 P 
-003 STRSSCHECK-STATUS_R2 = Check Status 1ereeen13he 2izoror «Ee terte sae Sstacnes sa oo2:1 age 5S 
191 0467 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_STRSCODE 104 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eoceeece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 1 0 581 00:00.8 


S$:STRCHESTA/OBJ=0BJ$:STRCHESTA MSRC$:STRCHESTA/UPDATE=(ENH$:STRCHESTA 
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